home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / REFERENC / TPR / SOURCE.EXE / DMSGBOX2.PAS < prev    next >
Pascal/Delphi Source File  |  1992-08-07  |  433b  |  21 lines

  1. { DMSGBOX2.PAS
  2.   Demonstrates use of the MessageBox function
  3. }
  4. procedure TShell.DemoMessageBox;
  5.  
  6. var
  7.   Control : Word;
  8.   ErrMsg  : Array [0..0] of Longint;
  9.   FileName: String;
  10.  
  11. begin
  12.  
  13.   FileName := 'SAMPLE.TXT';
  14.   ErrMsg[0] := Longint(@FileName);
  15.   Control := MessageBox ('Problem renaming %s', @ErrMsg,
  16.                                mfError or mfOKButton or mfCancelButton );
  17.  
  18. end; { TShell.DemoMessageBox }
  19.  
  20.  
  21.